home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / share / system-tools-backends-2.0 / scripts / SystemToolsBackends.pl < prev    next >
Perl Script  |  2009-10-20  |  2KB  |  54 lines
  1. #!/usr/bin/perl
  2. #-*- Mode: perl; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
  3.  
  4. # Loader for the system tools backends.
  5. #
  6. # Copyright (C) 2005 Carlos Garnacho
  7. #
  8. # Authors: Carlos Garnacho Parro  <carlosg@gnome.org>
  9. #
  10. # This program is free software; you can redistribute it and/or modify
  11. # it under the terms of the GNU Library General Public License as published
  12. # by the Free Software Foundation; either version 2 of the License, or
  13. # (at your option) any later version.
  14. #
  15. # This program is distributed in the hope that it will be useful,
  16. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  17. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18. # GNU Library General Public License for more details.
  19. #
  20. # You should have received a copy of the GNU Library General Public License
  21. # along with this program; if not, write to the Free Software
  22. # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  23.  
  24. use lib "/usr/share/system-tools-backends-2.0/scripts";
  25. use lib "/usr/lib/perl5";
  26.  
  27. our $localstatedir = "/var";
  28. our $filesdir = "/usr/share/system-tools-backends-2.0/files";
  29.  
  30. BEGIN {
  31.   my $i = 0;
  32.  
  33.   # Clean undesired entries in @INC
  34.   while ($INC[$i]) {
  35.     delete $INC[$i] if ($INC[$i] =~ /^@/);
  36.     $i++;
  37.   }
  38. }
  39.  
  40. use Utils::Backend;
  41.  
  42. # Initialize tool
  43. &Utils::Backend::init (@ARGV);
  44.  
  45. if (!$Utils::Backend::tool{"module"})
  46. {
  47.   print STDERR "Error: You must specify a module to load.\n\n";
  48.   exit (-1);
  49. }
  50.  
  51. require $Utils::Backend::tool{"module"};
  52.  
  53. &Utils::DBus::run ();
  54.